home *** CD-ROM | disk | FTP | other *** search
- ;$VER:Script generated by DRACS for MALEDICTION (aga) hd-install
-
- (complete 0)
- (set @default-dest "Work:")
-
- ; Texts
-
- (set #Intro-Txt
- (cat "\n\nWelcome to \n"
- "MALEDICTION (aga) hd-install\n"
- "Hard Disk Install Script\n\n\n\n"
- "This script has been generated by DRACS\n\n"
- ))(set #Warning-Txt
- (cat "Warning !\n\n\n"
- "MALEDICTION (aga) hd-install requires 3 MB free on your disk \n\n"
- "Think of it before destroying your disk...\n\n"
- ))(set #Path-Txt
- (cat "Select the target directory. A directory MALEDICTION will "
- "be created there."
- ))(set #Path-Help
- (cat "\nThis section lets you choose the "
- "target directory to install MALEDICTION (aga) hd-install. \n\n"
- "A directory MALEDICTION will be created there.\n\n"
- "Default is Work:\n\n\n"
- @askdir-help
- ))
- (set Assign-Help-Txt
- (cat "\nA script located in the target directory wil make "
- "the Assigns. The User-Startup will be patched in order "
- "to call this script.\n\n\n"
- @startup-help
- ))
- ; Main
-
- (message #Intro-Txt)
- (message #Warning-Txt)
- (set target
- (askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
- ))
- (set @default-dest target)
- (copyfiles
- (prompt "Copying to " #target)
- (help @copy-files-help)
- (source "DISK1:")
- (dest (tackon target "MALEDICTION"))
- (pattern "#?")
- )
- (complete 20)
- (copyfiles
- (prompt "Copying to " #target)
- (help @copy-files-help)
- (source "DISK2:")
- (dest (tackon target "MALEDICTION"))
- (pattern "#?")
- )
- (complete 45)
- (copyfiles
- (prompt "Copying to " #target)
- (help @copy-files-help)
- (source "DISK3:")
- (dest (tackon target "MALEDICTION"))
- (pattern "#?")
- )
- (complete 70)
- (copyfiles
- (prompt "Copying to " #target)
- (help @copy-files-help)
- (source "DISK4:")
- (dest (tackon target "MALEDICTION"))
- (pattern "#?")
- )
- (complete 95)
- (copyfiles
- (prompt "Copying to " #target)
- (source "MakeAssigns")
- (dest (tackon target "MALEDICTION"))
- )
- (startup "Assigns for MALEDICTION (aga) hd-install"
- (help "#Assign-Help-Txt")
- (prompt "\n\nA script will be launched from your User-Startup\n\n"
- "Your User-Startup must be patched to do that.")
- (command (tackon target "MakeAssigns"))
- )
- (complete 100)
-